home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hy-Hyperi / HyperBBS 2.0.cpt / HyperBBS 2.0 / UserList / stack_-1.xml < prev   
Extensible Markup Language  |  1992-07-14  |  3KB  |  26 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>7</cardCount>
  7.     <cardID>10358</cardID>
  8.     <listID>4177</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on initFieldsend initFieldson lookForInputend lookForInputon openStackglobal onlinepush recent cardshowCountend openStackon showCountshow msg at 22,20put "UserList: " & the number of cards & " user records in stack."end showCounton newCardshowCountend newCard-- The following command deletes all card to the end of the stack.-- You can use it to prune the UserList after sorting by last logon-- and going to the oldest user you want to keep. Use it carefully,-- tho, or you may delete your entire UserList...--on deleteToEndrepeat while the number of this card is not 1doMenu "delete card"end repeatend deleteToEndfunction nameToID userNameput empty into itput it into userIDif userName is not empty thenget lockScreenput it into oldLockset lockScreen to truepush cardgo to stack "UserList"find word userName in field "name"if it is not "not found" thenput "x" into userIDput the ID of this card into firstIDrepeat while field "name" is not userNamego to next cardfind word userName in field "name"if the ID of this card is firstID thenput empty into userIDexit repeatend ifend repeatend ifif userID is not empty then put the ID of this card into userIDpop cardset lockScreen to oldLockend ifreturn userIDend nameToIDfunction getUserInfo userID,infoTypeget lockScreenput it into oldLockset lockScreen to truepush cardgo to stack "UserList"do "put field " & infoType & " in " & userID & " into it"pop cardset lockScreen to oldLockreturn itend getUserInfo</script>
  17.     <background id="2635" file="background_2635.xml" name="" />
  18.     <card id="10358" file="card_10358.xml" marked="false" name="" owner="2635" />
  19.     <card id="2129" file="card_2129.xml" marked="false" name="" owner="2635" />
  20.     <card id="5733" file="card_5733.xml" marked="false" name="" owner="2635" />
  21.     <card id="6094" file="card_6094.xml" marked="false" name="" owner="2635" />
  22.     <card id="9040" file="card_9040.xml" marked="false" name="" owner="2635" />
  23.     <card id="4086" file="card_4086.xml" marked="false" name="" owner="2635" />
  24.     <card id="3049" file="card_3049.xml" marked="false" name="" owner="2635" />
  25. </stack>
  26.